SSTACK SEGMENT STACK
       DB 100 DUP(?)
SSTACK ENDS
CSEG SEGMENT
     ASSUME CS:CSEG,SS:SSTACK
START:XOR AX,AX
      MOV DS,AX
      LEA AX,IRQ1
      MOV DS:0024H,AX
      MOV AX,CS
      MOV DS:0026H,AX
      CLI
      MOV DX,0250H
      MOV AL,13H
      OUT DX,AL
      MOV DX,0251H
      MOV AL,08H
      OUT DX,AL
      MOV DX,0251H
      MOV AL,01H
      OUT DX,AL
      MOV DX,0251H
      MOV AL,0FDH
      OUT DX,AL
      MOV CX,10
      STI
LP1:CMP CX,0
      JNE LP1
      RET
IRQ1:MOV DL,'M'
     MOV AH,02H
     INT 21H
     DEC CX
     MOV DX,0250H
     MOV AL,20H
     OUT DX,AL
     IRET
     CSEG ENDS
END START
